home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / tuneit25 / data.z / Main.Frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-10-16  |  80.2 KB  |  2,263 lines

  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.1#0"; "COMCTL32.OCX"
  3. Object = "{C5C08340-4E2C-11D0-88EB-444553540000}#2.5#0"; "TUNEIT.OCX"
  4. Begin VB.Form Form_Main 
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "Windows system information ..."
  7.    ClientHeight    =   6045
  8.    ClientLeft      =   195
  9.    ClientTop       =   615
  10.    ClientWidth     =   9045
  11.    Icon            =   "Main.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    PaletteMode     =   1  'UseZOrder
  16.    ScaleHeight     =   6045
  17.    ScaleWidth      =   9045
  18.    ShowInTaskbar   =   0   'False
  19.    StartUpPosition =   2  'CenterScreen
  20.    Begin VB.PictureBox Page 
  21.       BorderStyle     =   0  'None
  22.       ClipControls    =   0   'False
  23.       Height          =   4896
  24.       Index           =   8
  25.       Left            =   240
  26.       ScaleHeight     =   4890
  27.       ScaleWidth      =   8640
  28.       TabIndex        =   160
  29.       TabStop         =   0   'False
  30.       Top             =   480
  31.       Width           =   8640
  32.       Begin VB.Label Label_Registration 
  33.          Alignment       =   2  'Center
  34.          Caption         =   "Label62"
  35.          BeginProperty Font 
  36.             Name            =   "MS Sans Serif"
  37.             Size            =   8.25
  38.             Charset         =   178
  39.             Weight          =   400
  40.             Underline       =   -1  'True
  41.             Italic          =   0   'False
  42.             Strikethrough   =   0   'False
  43.          EndProperty
  44.          ForeColor       =   &H000000C0&
  45.          Height          =   360
  46.          Left            =   2244
  47.          MouseIcon       =   "Main.frx":0442
  48.          MousePointer    =   99  'Custom
  49.          TabIndex        =   172
  50.          Top             =   1584
  51.          Width           =   5664
  52.       End
  53.       Begin VB.Label Label_HomePage 
  54.          Alignment       =   2  'Center
  55.          Caption         =   "Web :  http://www.angelfire.com/me/majids"
  56.          BeginProperty Font 
  57.             Name            =   "Arial"
  58.             Size            =   9.75
  59.             Charset         =   178
  60.             Weight          =   400
  61.             Underline       =   -1  'True
  62.             Italic          =   0   'False
  63.             Strikethrough   =   0   'False
  64.          EndProperty
  65.          ForeColor       =   &H00C00000&
  66.          Height          =   492
  67.          Left            =   2400
  68.          MouseIcon       =   "Main.frx":074C
  69.          MousePointer    =   99  'Custom
  70.          TabIndex        =   171
  71.          Top             =   2676
  72.          Width           =   5172
  73.       End
  74.       Begin VB.Label Label_Email 
  75.          Alignment       =   2  'Center
  76.          Caption         =   "Copyright 
  77.   1997-98, Majid Salimi"
  78.          BeginProperty Font 
  79.             Name            =   "MS Sans Serif"
  80.             Size            =   9.75
  81.             Charset         =   178
  82.             Weight          =   400
  83.             Underline       =   -1  'True
  84.             Italic          =   0   'False
  85.             Strikethrough   =   0   'False
  86.          EndProperty
  87.          ForeColor       =   &H00800000&
  88.          Height          =   372
  89.          Left            =   2412
  90.          MouseIcon       =   "Main.frx":0A56
  91.          MousePointer    =   99  'Custom
  92.          TabIndex        =   170
  93.          Top             =   2244
  94.          Width           =   5172
  95.       End
  96.       Begin VB.Label Label70 
  97.          Alignment       =   2  'Center
  98.          Caption         =   "WinInfo    ver. 2.5"
  99.          BeginProperty Font 
  100.             Name            =   "Times New Roman"
  101.             Size            =   24
  102.             Charset         =   0
  103.             Weight          =   400
  104.             Underline       =   0   'False
  105.             Italic          =   0   'False
  106.             Strikethrough   =   0   'False
  107.          EndProperty
  108.          ForeColor       =   &H00FF0000&
  109.          Height          =   780
  110.          Left            =   2400
  111.          TabIndex        =   169
  112.          Top             =   360
  113.          Width           =   5172
  114.       End
  115.       Begin VB.Label Label69 
  116.          Alignment       =   2  'Center
  117.          Caption         =   "A ""Tune It! OLE control"" sample"
  118.          BeginProperty Font 
  119.             Name            =   "MS Sans Serif"
  120.             Size            =   9.75
  121.             Charset         =   178
  122.             Weight          =   400
  123.             Underline       =   0   'False
  124.             Italic          =   0   'False
  125.             Strikethrough   =   0   'False
  126.          EndProperty
  127.          ForeColor       =   &H00800000&
  128.          Height          =   372
  129.          Left            =   2400
  130.          TabIndex        =   168
  131.          Top             =   1200
  132.          Width           =   5172
  133.       End
  134.       Begin VB.Image Image3 
  135.          Height          =   2160
  136.          Left            =   360
  137.          Picture         =   "Main.frx":0D60
  138.          Top             =   480
  139.          Width           =   1980
  140.       End
  141.       Begin VB.Label Label68 
  142.          Appearance      =   0  'Flat
  143.          BackColor       =   &H00C0C0C0&
  144.          BackStyle       =   0  'Transparent
  145.          BorderStyle     =   1  'Fixed Single
  146.          Caption         =   "Label4"
  147.          ForeColor       =   &H80000008&
  148.          Height          =   12
  149.          Left            =   480
  150.          TabIndex        =   167
  151.          Top             =   3360
  152.          Width           =   3876
  153.       End
  154.       Begin VB.Label Label67 
  155.          Caption         =   "Windows user   :"
  156.          Height          =   252
  157.          Left            =   4560
  158.          TabIndex        =   166
  159.          Top             =   3240
  160.          Width           =   1452
  161.       End
  162.       Begin VB.Label Label_WinUser 
  163.          Caption         =   "Label39"
  164.          Height          =   252
  165.          Left            =   6024
  166.          TabIndex        =   165
  167.          Top             =   3240
  168.          Width           =   2412
  169.       End
  170.       Begin VB.Label Label65 
  171.          Caption         =   "Organization     :"
  172.          Height          =   252
  173.          Left            =   4584
  174.          TabIndex        =   164
  175.          Top             =   3840
  176.          Width           =   1452
  177.       End
  178.       Begin VB.Label Label_WinOrganization 
  179.          Caption         =   "Label40"
  180.          Height          =   252
  181.          Left            =   6024
  182.          TabIndex        =   163
  183.          Top             =   3840
  184.          Width           =   2412
  185.       End
  186.       Begin VB.Label Label64 
  187.          Caption         =   "O.S. product ID :"
  188.          Height          =   252
  189.          Left            =   4584
  190.          TabIndex        =   162
  191.          Top             =   4440
  192.          Width           =   1452
  193.       End
  194.       Begin VB.Label Label_ProductID 
  195.          Caption         =   "Label41"
  196.          Height          =   252
  197.          Left            =   6024
  198.          TabIndex        =   161
  199.          Top             =   4440
  200.          Width           =   2412
  201.       End
  202.    End
  203.    Begin VB.CommandButton Command_Quit 
  204.       Cancel          =   -1  'True
  205.       Caption         =   "&Quit"
  206.       Default         =   -1  'True
  207.       Height          =   372
  208.       Left            =   7260
  209.       TabIndex        =   143
  210.       Top             =   5568
  211.       Width           =   1692
  212.    End
  213.    Begin VB.PictureBox Page 
  214.       BorderStyle     =   0  'None
  215.       ClipControls    =   0   'False
  216.       Height          =   4896
  217.       Index           =   7
  218.       Left            =   240
  219.       ScaleHeight     =   4890
  220.       ScaleWidth      =   8640
  221.       TabIndex        =   12
  222.       TabStop         =   0   'False
  223.       Top             =   480
  224.       Width           =   8640
  225.       Begin VB.Frame Frame_InternetClients 
  226.          Caption         =   " Default Internet Clients  "
  227.          ForeColor       =   &H00FF0000&
  228.          Height          =   1995
  229.          Left            =   2196
  230.          TabIndex        =   152
  231.          Top             =   2700
  232.          Width           =   6252
  233.          Begin VB.Label Label_TelnetClient 
  234.             Caption         =   "Label20"
  235.             ForeColor       =   &H00800000&
  236.             Height          =   255
  237.             Left            =   1020
  238.             TabIndex        =   179
  239.             Top             =   1620
  240.             Width           =   5190
  241.          End
  242.          Begin VB.Label Label_EmailClient 
  243.             Caption         =   "Label20"
  244.             ForeColor       =   &H00800000&
  245.             Height          =   255
  246.             Left            =   1020
  247.             TabIndex        =   178
  248.             Top             =   1215
  249.             Width           =   5190
  250.          End
  251.          Begin VB.Label Label_FTPclient 
  252.             Caption         =   "Label20"
  253.             ForeColor       =   &H00800000&
  254.             Height          =   255
  255.             Left            =   1020
  256.             TabIndex        =   177
  257.             Top             =   810
  258.             Width           =   5190
  259.          End
  260.          Begin VB.Label Label_WEBbrowser 
  261.             Caption         =   "Label20"
  262.             ForeColor       =   &H00800000&
  263.             Height          =   255
  264.             Left            =   1020
  265.             TabIndex        =   176
  266.             Top             =   420
  267.             Width           =   5190
  268.          End
  269.          Begin VB.Label Label37 
  270.             Caption         =   "Telnet  :"
  271.             Height          =   255
  272.             Left            =   195
  273.             TabIndex        =   156
  274.             Top             =   1620
  275.             Width           =   795
  276.          End
  277.          Begin VB.Label Label34 
  278.             Caption         =   "Email    :"
  279.             Height          =   255
  280.             Left            =   195
  281.             TabIndex        =   155
  282.             Top             =   1215
  283.             Width           =   795
  284.          End
  285.          Begin VB.Label Label4 
  286.             Caption         =   "Ftp      :"
  287.             Height          =   255
  288.             Left            =   195
  289.             TabIndex        =   154
  290.             Top             =   810
  291.             Width           =   795
  292.          End
  293.          Begin VB.Label Label33 
  294.             Caption         =   "Web    :"
  295.             Height          =   255
  296.             Left            =   195
  297.             TabIndex        =   153
  298.             Top             =   405
  299.             Width           =   795
  300.          End
  301.       End
  302.       Begin VB.Frame Frame_Workgroup 
  303.          Caption         =   " Workgroup  "
  304.          ForeColor       =   &H00FF0000&
  305.          Height          =   1665
  306.          Left            =   2196
  307.          TabIndex        =   149
  308.          Top             =   150
  309.          Width           =   6252
  310.          Begin VB.Label Label_WorkgroupComputerDesc 
  311.             Caption         =   " "
  312.             ForeColor       =   &H00800000&
  313.             Height          =   255
  314.             Left            =   1890
  315.             TabIndex        =   175
  316.             Top             =   1275
  317.             Width           =   4305
  318.          End
  319.          Begin VB.Label Label_WorkgroupComputerName 
  320.             Caption         =   " "
  321.             ForeColor       =   &H00800000&
  322.             Height          =   255
  323.             Left            =   1890
  324.             TabIndex        =   174
  325.             Top             =   840
  326.             Width           =   4305
  327.          End
  328.          Begin VB.Label Label_WorkgroupName 
  329.             Caption         =   " "
  330.             ForeColor       =   &H00800000&
  331.             Height          =   255
  332.             Left            =   1890
  333.             TabIndex        =   173
  334.             Top             =   435
  335.             Width           =   4305
  336.          End
  337.          Begin VB.Label Label77 
  338.             Caption         =   "Computer description :"
  339.             Height          =   255
  340.             Left            =   195
  341.             TabIndex        =   159
  342.             Top             =   1275
  343.             Width           =   1650
  344.          End
  345.          Begin VB.Label Label52 
  346.             Caption         =   "Computer name         :"
  347.             Height          =   255
  348.             Left            =   195
  349.             TabIndex        =   158
  350.             Top             =   840
  351.             Width           =   1650
  352.          End
  353.          Begin VB.Label Label38 
  354.             Caption         =   "Workgroup name      :"
  355.             Height          =   255
  356.             Left            =   195
  357.             TabIndex        =   157
  358.             Top             =   435
  359.             Width           =   1650
  360.          End
  361.       End
  362.       Begin VB.Image Image4 
  363.          Height          =   480
  364.          Left            =   2175
  365.          Picture         =   "Main.frx":1CAA
  366.          Top             =   2070
  367.          Width           =   480
  368.       End
  369.       Begin VB.Label Label_NetworkAdapter 
  370.          Caption         =   "Label20"
  371.          ForeColor       =   &H00800000&
  372.          Height          =   255
  373.          Left            =   4080
  374.          TabIndex        =   151
  375.          Top             =   2190
  376.          Width           =   4290
  377.       End
  378.       Begin VB.Label Label8 
  379.          Caption         =   "Network adapter:"
  380.          Height          =   255
  381.          Left            =   2700
  382.          TabIndex        =   150
  383.          Top             =   2175
  384.          Width           =   1395
  385.       End
  386.       Begin VB.Image Image10 
  387.          Height          =   2160
  388.          Left            =   120
  389.          Picture         =   "Main.frx":1FB4
  390.          Top             =   195
  391.          Width           =   1980
  392.       End
  393.    End
  394.    Begin VB.PictureBox Page 
  395.       BorderStyle     =   0  'None
  396.       ClipControls    =   0   'False
  397.       Height          =   4896
  398.       Index           =   6
  399.       Left            =   240
  400.       ScaleHeight     =   4890
  401.       ScaleWidth      =   8640
  402.       TabIndex        =   7
  403.       TabStop         =   0   'False
  404.       Top             =   480
  405.       Width           =   8640
  406.       Begin VB.Frame Frame1 
  407.          Caption         =   " Number of available logical drives   "
  408.          ClipControls    =   0   'False
  409.          ForeColor       =   &H00FF0000&
  410.          Height          =   1692
  411.          Left            =   2196
  412.          TabIndex        =   129
  413.          Top             =   360
  414.          Width           =   6252
  415.          Begin VB.Image Image17 
  416.             Height          =   480
  417.             Left            =   360
  418.             Picture         =   "Main.frx":2EFE
  419.             ToolTipText     =   "Removable drives (Floppy,ZipDrive,SuperDisk,...)"
  420.             Top             =   600
  421.             Width           =   480
  422.          End
  423.          Begin VB.Image Image18 
  424.             Height          =   480
  425.             Left            =   3000
  426.             Picture         =   "Main.frx":3208
  427.             ToolTipText     =   "Local hard drives"
  428.             Top             =   600
  429.             Width           =   480
  430.          End
  431.          Begin VB.Image Image19 
  432.             Height          =   480
  433.             Left            =   1680
  434.             Picture         =   "Main.frx":3512
  435.             ToolTipText     =   "CD drives"
  436.             Top             =   600
  437.             Width           =   480
  438.          End
  439.          Begin VB.Image Image20 
  440.             Height          =   480
  441.             Left            =   4320
  442.             Picture         =   "Main.frx":381C
  443.             ToolTipText     =   "Ram drive"
  444.             Top             =   600
  445.             Width           =   480
  446.          End
  447.          Begin VB.Image Image21 
  448.             Height          =   480
  449.             Left            =   5520
  450.             Picture         =   "Main.frx":3B26
  451.             ToolTipText     =   "Network drives"
  452.             Top             =   600
  453.             Width           =   480
  454.          End
  455.          Begin VB.Label Label_FDDs 
  456.             Alignment       =   2  'Center
  457.             Caption         =   "2"
  458.             BeginProperty Font 
  459.                Name            =   "Times New Roman"
  460.                Size            =   13.5
  461.                Charset         =   0
  462.                Weight          =   700
  463.                Underline       =   0   'False
  464.                Italic          =   0   'False
  465.                Strikethrough   =   0   'False
  466.             EndProperty
  467.             ForeColor       =   &H00808080&
  468.             Height          =   375
  469.             Left            =   300
  470.             TabIndex        =   134
  471.             Top             =   1080
  472.             Width           =   615
  473.          End
  474.          Begin VB.Label Label_CDDrives 
  475.             Alignment       =   2  'Center
  476.             Caption         =   "1"
  477.             BeginProperty Font 
  478.                Name            =   "Times New Roman"
  479.                Size            =   13.5
  480.                Charset         =   0
  481.                Weight          =   700
  482.                Underline       =   0   'False
  483.                Italic          =   0   'False
  484.                Strikethrough   =   0   'False
  485.             EndProperty
  486.             ForeColor       =   &H00808080&
  487.             Height          =   375
  488.             Left            =   1560
  489.             TabIndex        =   133
  490.             Top             =   1080
  491.             Width           =   615
  492.          End
  493.          Begin VB.Label Label_HDDs 
  494.             Alignment       =   2  'Center
  495.             Caption         =   "3"
  496.             BeginProperty Font 
  497.                Name            =   "Times New Roman"
  498.                Size            =   13.5
  499.                Charset         =   0
  500.                Weight          =   700
  501.                Underline       =   0   'False
  502.                Italic          =   0   'False
  503.                Strikethrough   =   0   'False
  504.             EndProperty
  505.             ForeColor       =   &H00808080&
  506.             Height          =   375
  507.             Left            =   2880
  508.             TabIndex        =   132
  509.             Top             =   1080
  510.             Width           =   615
  511.          End
  512.          Begin VB.Label Label_RamDrives 
  513.             Alignment       =   2  'Center
  514.             Caption         =   "0"
  515.             BeginProperty Font 
  516.                Name            =   "Times New Roman"
  517.                Size            =   13.5
  518.                Charset         =   0
  519.                Weight          =   700
  520.                Underline       =   0   'False
  521.                Italic          =   0   'False
  522.                Strikethrough   =   0   'False
  523.             EndProperty
  524.             ForeColor       =   &H00808080&
  525.             Height          =   375
  526.             Left            =   4200
  527.             TabIndex        =   131
  528.             Top             =   1080
  529.             Width           =   615
  530.          End
  531.          Begin VB.Label Label_RemoteDrives 
  532.             Alignment       =   2  'Center
  533.             Caption         =   "0"
  534.             BeginProperty Font 
  535.                Name            =   "Times New Roman"
  536.                Size            =   13.5
  537.                Charset         =   0
  538.                Weight          =   700
  539.                Underline       =   0   'False
  540.                Italic          =   0   'False
  541.                Strikethrough   =   0   'False
  542.             EndProperty
  543.             ForeColor       =   &H00808080&
  544.             Height          =   375
  545.             Left            =   5400
  546.             TabIndex        =   130
  547.             Top             =   1080
  548.             Width           =   615
  549.          End
  550.       End
  551.       Begin VB.Label Label36 
  552.          Caption         =   "Temp directory         :"
  553.          Height          =   252
  554.          Left            =   2196
  555.          TabIndex        =   142
  556.          Top             =   3120
  557.          Width           =   1692
  558.       End
  559.       Begin VB.Label Label_TempDir 
  560.          Caption         =   "Label41"
  561.          ForeColor       =   &H00800000&
  562.          Height          =   252
  563.          Left            =   3888
  564.          TabIndex        =   141
  565.          Top             =   3120
  566.          Width           =   4572
  567.       End
  568.       Begin VB.Label Label51 
  569.          Caption         =   "Path                         :"
  570.          Height          =   252
  571.          Left            =   2196
  572.          TabIndex        =   140
  573.          Top             =   2520
  574.          Width           =   1644
  575.       End
  576.       Begin VB.Label Label_Path 
  577.          Caption         =   "Label52"
  578.          BeginProperty Font 
  579.             Name            =   "Times New Roman"
  580.             Size            =   7.5
  581.             Charset         =   0
  582.             Weight          =   400
  583.             Underline       =   0   'False
  584.             Italic          =   0   'False
  585.             Strikethrough   =   0   'False
  586.          EndProperty
  587.          ForeColor       =   &H00800000&
  588.          Height          =   615
  589.          Left            =   3900
  590.          TabIndex        =   139
  591.          Top             =   2535
  592.          Width           =   4785
  593.          WordWrap        =   -1  'True
  594.       End
  595.       Begin VB.Label Label57 
  596.          Caption         =   "Windows directory   :"
  597.          Height          =   252
  598.          Left            =   2196
  599.          TabIndex        =   138
  600.          Top             =   3720
  601.          Width           =   1692
  602.       End
  603.       Begin VB.Label Label_WinDir2 
  604.          Caption         =   "Label58"
  605.          ForeColor       =   &H00800000&
  606.          Height          =   252
  607.          Left            =   3876
  608.          TabIndex        =   137
  609.          Top             =   3720
  610.          Width           =   4452
  611.       End
  612.       Begin VB.Label Label58 
  613.          Caption         =   "COMSPEC               :"
  614.          Height          =   252
  615.          Left            =   2196
  616.          TabIndex        =   136
  617.          Top             =   4320
  618.          Width           =   1692
  619.       End
  620.       Begin VB.Label Label_COMSPEC 
  621.          Caption         =   "Label59"
  622.          ForeColor       =   &H00800000&
  623.          Height          =   252
  624.          Left            =   3876
  625.          TabIndex        =   135
  626.          Top             =   4320
  627.          Width           =   4572
  628.       End
  629.       Begin VB.Image Image16 
  630.          Height          =   1056
  631.          Left            =   0
  632.          Picture         =   "Main.frx":3E30
  633.          Stretch         =   -1  'True
  634.          Top             =   996
  635.          Width           =   2088
  636.       End
  637.    End
  638.    Begin VB.PictureBox Page 
  639.       BorderStyle     =   0  'None
  640.       ClipControls    =   0   'False
  641.       Height          =   4896
  642.       Index           =   5
  643.       Left            =   240
  644.       ScaleHeight     =   4890
  645.       ScaleWidth      =   8640
  646.       TabIndex        =   6
  647.       TabStop         =   0   'False
  648.       Top             =   480
  649.       Width           =   8640
  650.       Begin ComctlLib.ProgressBar ProgressBar_SwapFileUsage 
  651.          Height          =   165
  652.          Left            =   4500
  653.          TabIndex        =   113
  654.          Top             =   4620
  655.          Width           =   4005
  656.          _ExtentX        =   7064
  657.          _ExtentY        =   291
  658.          _Version        =   327680
  659.          BorderStyle     =   1
  660.          Appearance      =   0
  661.       End
  662.       Begin ComctlLib.ProgressBar ProgressBar_SwapFile 
  663.          Height          =   165
  664.          Left            =   0
  665.          TabIndex        =   128
  666.          Top             =   4620
  667.          Width           =   4005
  668.          _ExtentX        =   7064
  669.          _ExtentY        =   291
  670.          _Version        =   327680
  671.          BorderStyle     =   1
  672.          Appearance      =   0
  673.       End
  674.       Begin ComctlLib.ProgressBar ProgressBar_Mem 
  675.          Height          =   165
  676.          Left            =   0
  677.          TabIndex        =   126
  678.          Top             =   3840
  679.          Width           =   4005
  680.          _ExtentX        =   7064
  681.          _ExtentY        =   291
  682.          _Version        =   327680
  683.          BorderStyle     =   1
  684.          Appearance      =   0
  685.       End
  686.       Begin ComctlLib.ProgressBar ProgressBar_DiskCache 
  687.          Height          =   165
  688.          Left            =   4500
  689.          TabIndex        =   114
  690.          Top             =   3840
  691.          Width           =   4005
  692.          _ExtentX        =   7064
  693.          _ExtentY        =   291
  694.          _Version        =   327680
  695.          BorderStyle     =   1
  696.          Appearance      =   0
  697.       End
  698.       Begin ComctlLib.ProgressBar ProgressBar_ProcessorUsage 
  699.          Height          =   165
  700.          Left            =   0
  701.          TabIndex        =   124
  702.          Top             =   3120
  703.          Width           =   8520
  704.          _ExtentX        =   15028
  705.          _ExtentY        =   291
  706.          _Version        =   327680
  707.          BorderStyle     =   1
  708.          Appearance      =   0
  709.       End
  710.       Begin VB.Label Label_SwapFile 
  711.          Alignment       =   2  'Center
  712.          Caption         =   "Label52"
  713.          ForeColor       =   &H00808080&
  714.          Height          =   255
  715.          Left            =   0
  716.          TabIndex        =   127
  717.          Top             =   4365
  718.          Width           =   4020
  719.       End
  720.       Begin VB.Label Label_Memory 
  721.          Alignment       =   2  'Center
  722.          Caption         =   "Label15"
  723.          ForeColor       =   &H00808080&
  724.          Height          =   255
  725.          Left            =   0
  726.          TabIndex        =   125
  727.          Top             =   3585
  728.          Width           =   4005
  729.       End
  730.       Begin VB.Label Label_ProcessorUsage 
  731.          Alignment       =   2  'Center
  732.          Caption         =   "Label53"
  733.          ForeColor       =   &H00808080&
  734.          Height          =   255
  735.          Left            =   0
  736.          TabIndex        =   123
  737.          Top             =   2850
  738.          Width           =   8505
  739.       End
  740.       Begin VB.Label Label53 
  741.          Caption         =   "Virtual Machines     :"
  742.          Height          =   252
  743.          Left            =   2448
  744.          TabIndex        =   122
  745.          Top             =   600
  746.          Width           =   1812
  747.       End
  748.       Begin VB.Label Label54 
  749.          Caption         =   "Threads                  :"
  750.          Height          =   252
  751.          Left            =   2448
  752.          TabIndex        =   121
  753.          Top             =   1080
  754.          Width           =   1812
  755.       End
  756.       Begin VB.Label Label55 
  757.          Caption         =   "Allocated memory  :"
  758.          Height          =   252
  759.          Left            =   2448
  760.          TabIndex        =   120
  761.          Top             =   1560
  762.          Width           =   1812
  763.       End
  764.       Begin VB.Label Label56 
  765.          Caption         =   "Locked memory     :"
  766.          Height          =   252
  767.          Left            =   2460
  768.          TabIndex        =   119
  769.          Top             =   2040
  770.          Width           =   1752
  771.       End
  772.       Begin VB.Label Label_VMs 
  773.          Caption         =   "Label57"
  774.          ForeColor       =   &H00800000&
  775.          Height          =   252
  776.          Left            =   4248
  777.          TabIndex        =   118
  778.          Top             =   600
  779.          Width           =   4212
  780.       End
  781.       Begin VB.Label Label_Threads 
  782.          Caption         =   "Label57"
  783.          ForeColor       =   &H00800000&
  784.          Height          =   252
  785.          Left            =   4248
  786.          TabIndex        =   117
  787.          Top             =   1080
  788.          Width           =   4212
  789.       End
  790.       Begin VB.Label Label_AllocatedMemory 
  791.          Caption         =   "Label57"
  792.          ForeColor       =   &H00800000&
  793.          Height          =   252
  794.          Left            =   4248
  795.          TabIndex        =   116
  796.          Top             =   1560
  797.          Width           =   4212
  798.       End
  799.       Begin VB.Label Label_LockedMemory 
  800.          Caption         =   "Label57"
  801.          ForeColor       =   &H00800000&
  802.          Height          =   252
  803.          Left            =   4248
  804.          TabIndex        =   115
  805.          Top             =   2040
  806.          Width           =   4212
  807.       End
  808.       Begin VB.Image Image15 
  809.          Height          =   1452
  810.          Left            =   48
  811.          Picture         =   "Main.frx":5152
  812.          Stretch         =   -1  'True
  813.          Top             =   720
  814.          Width           =   2052
  815.       End
  816.       Begin VB.Label Label_DiskCache 
  817.          Alignment       =   2  'Center
  818.          Caption         =   "Label57"
  819.          ForeColor       =   &H00808080&
  820.          Height          =   255
  821.          Left            =   4455
  822.          TabIndex        =   112
  823.          Top             =   3585
  824.          Width           =   4110
  825.       End
  826.       Begin VB.Label Label_SwapFileUsage 
  827.          Alignment       =   2  'Center
  828.          Caption         =   "Label58"
  829.          ForeColor       =   &H00808080&
  830.          Height          =   255
  831.          Left            =   4455
  832.          TabIndex        =   111
  833.          Top             =   4350
  834.          Width           =   4110
  835.       End
  836.    End
  837.    Begin VB.PictureBox Page 
  838.       BorderStyle     =   0  'None
  839.       ClipControls    =   0   'False
  840.       Height          =   4896
  841.       Index           =   4
  842.       Left            =   240
  843.       ScaleHeight     =   4890
  844.       ScaleWidth      =   8640
  845.       TabIndex        =   5
  846.       TabStop         =   0   'False
  847.       Top             =   480
  848.       Width           =   8640
  849.       Begin VB.CheckBox Check_Tiled 
  850.          Enabled         =   0   'False
  851.          ForeColor       =   &H00800000&
  852.          Height          =   252
  853.          Left            =   4080
  854.          TabIndex        =   91
  855.          Top             =   840
  856.          Width           =   202
  857.       End
  858.       Begin VB.CheckBox Check_Stretched 
  859.          Enabled         =   0   'False
  860.          ForeColor       =   &H00800000&
  861.          Height          =   252
  862.          Left            =   6240
  863.          TabIndex        =   90
  864.          Top             =   840
  865.          Width           =   202
  866.       End
  867.       Begin VB.CheckBox Check_ScreenSaveActive 
  868.          Enabled         =   0   'False
  869.          Height          =   252
  870.          Left            =   4080
  871.          TabIndex        =   89
  872.          Top             =   2328
  873.          Width           =   202
  874.       End
  875.       Begin VB.CheckBox Check_AlwaysOnTop 
  876.          Enabled         =   0   'False
  877.          Height          =   252
  878.          Left            =   4080
  879.          TabIndex        =   88
  880.          Top             =   1560
  881.          Width           =   202
  882.       End
  883.       Begin VB.CheckBox Check_AutoHide 
  884.          Enabled         =   0   'False
  885.          Height          =   252
  886.          Left            =   6240
  887.          TabIndex        =   87
  888.          Top             =   1560
  889.          Width           =   202
  890.       End
  891.       Begin VB.CheckBox Check_IconsUsingAllColors 
  892.          Enabled         =   0   'False
  893.          Height          =   252
  894.          Left            =   4080
  895.          TabIndex        =   86
  896.          Top             =   3012
  897.          Width           =   252
  898.       End
  899.       Begin VB.CheckBox Check_MenuRightAlign 
  900.          Enabled         =   0   'False
  901.          Height          =   252
  902.          Left            =   4080
  903.          TabIndex        =   85
  904.          Top             =   3852
  905.          Width           =   252
  906.       End
  907.       Begin VB.CheckBox Check_IconTitleWrap 
  908.          Enabled         =   0   'False
  909.          Height          =   252
  910.          Left            =   6240
  911.          TabIndex        =   84
  912.          Top             =   3012
  913.          Width           =   252
  914.       End
  915.       Begin VB.Label Label12 
  916.          Caption         =   "Wallpaper          :"
  917.          Height          =   252
  918.          Left            =   2400
  919.          TabIndex        =   110
  920.          Top             =   600
  921.          Width           =   1668
  922.       End
  923.       Begin VB.Label Label14 
  924.          Caption         =   "Screen saver    :"
  925.          Height          =   252
  926.          Left            =   2400
  927.          TabIndex        =   109
  928.          Top             =   2040
  929.          Width           =   1644
  930.       End
  931.       Begin VB.Label Label17 
  932.          Caption         =   "Taskbar at         :"
  933.          Height          =   252
  934.          Left            =   2400
  935.          TabIndex        =   108
  936.          Top             =   1320
  937.          Width           =   1656
  938.       End
  939.       Begin VB.Label Label20 
  940.          Caption         =   "Icons                    :"
  941.          Height          =   252
  942.          Left            =   2400
  943.          TabIndex        =   107
  944.          Top             =   2760
  945.          Width           =   1692
  946.       End
  947.       Begin VB.Label Label21 
  948.          Caption         =   "Menus                 :"
  949.          Height          =   252
  950.          Left            =   2400
  951.          TabIndex        =   106
  952.          Top             =   3600
  953.          Width           =   1692
  954.       End
  955.       Begin VB.Label Label_Wallpaper 
  956.          Caption         =   "Label22"
  957.          ForeColor       =   &H00800000&
  958.          Height          =   252
  959.          Left            =   4080
  960.          TabIndex        =   105
  961.          Top             =   600
  962.          Width           =   4212
  963.       End
  964.       Begin VB.Label Label_ScreenSaver 
  965.          Caption         =   "Label23"
  966.          ForeColor       =   &H00800000&
  967.          Height          =   252
  968.          Left            =   4068
  969.          TabIndex        =   104
  970.          Top             =   2076
  971.          Width           =   3972
  972.       End
  973.       Begin VB.Image Image14 
  974.          Height          =   2568
  975.          Left            =   0
  976.          Picture         =   "Main.frx":6E24
  977.          Top             =   600
  978.          Width           =   2196
  979.       End
  980.       Begin VB.Label Label_ScreenSaveTimeOut 
  981.          Caption         =   "Label23"
  982.          Enabled         =   0   'False
  983.          ForeColor       =   &H00800000&
  984.          Height          =   252
  985.          Left            =   4308
  986.          TabIndex        =   103
  987.          Top             =   2376
  988.          Width           =   3012
  989.       End
  990.       Begin VB.Label Label47 
  991.          Caption         =   "Tiled"
  992.          Enabled         =   0   'False
  993.          ForeColor       =   &H00800000&
  994.          Height          =   252
  995.          Left            =   4296
  996.          TabIndex        =   102
  997.          Top             =   876
  998.          Width           =   1212
  999.       End
  1000.       Begin VB.Label Label48 
  1001.          Caption         =   "Stretched"
  1002.          Enabled         =   0   'False
  1003.          ForeColor       =   &H00800000&
  1004.          Height          =   252
  1005.          Left            =   6456
  1006.          TabIndex        =   101
  1007.          Top             =   876
  1008.          Width           =   1572
  1009.       End
  1010.       Begin VB.Label Label_TaskbarLocation 
  1011.          Caption         =   "Label49"
  1012.          ForeColor       =   &H00800000&
  1013.          Height          =   252
  1014.          Left            =   4080
  1015.          TabIndex        =   100
  1016.          Top             =   1320
  1017.          Width           =   4212
  1018.       End
  1019.       Begin VB.Label Label49 
  1020.          Caption         =   "Always on top"
  1021.          Enabled         =   0   'False
  1022.          ForeColor       =   &H00800000&
  1023.          Height          =   252
  1024.          Left            =   4296
  1025.          TabIndex        =   99
  1026.          Top             =   1596
  1027.          Width           =   1812
  1028.       End
  1029.       Begin VB.Label Label50 
  1030.          Caption         =   "Auto hide"
  1031.          Enabled         =   0   'False
  1032.          ForeColor       =   &H00800000&
  1033.          Height          =   252
  1034.          Left            =   6456
  1035.          TabIndex        =   98
  1036.          Top             =   1596
  1037.          Width           =   1812
  1038.       End
  1039.       Begin VB.Label Label_IconType 
  1040.          Caption         =   "Label62"
  1041.          ForeColor       =   &H00800000&
  1042.          Height          =   252
  1043.          Left            =   4080
  1044.          TabIndex        =   97
  1045.          Top             =   2760
  1046.          Width           =   4212
  1047.       End
  1048.       Begin VB.Label Label_MenuHeight 
  1049.          Caption         =   "Label63"
  1050.          ForeColor       =   &H00800000&
  1051.          Height          =   252
  1052.          Left            =   4080
  1053.          TabIndex        =   96
  1054.          Top             =   3600
  1055.          Width           =   4212
  1056.       End
  1057.       Begin VB.Label Label_IconsUsingAllColors 
  1058.          Caption         =   "Show using all colors"
  1059.          Enabled         =   0   'False
  1060.          ForeColor       =   &H00800000&
  1061.          Height          =   252
  1062.          Left            =   4320
  1063.          TabIndex        =   95
  1064.          Top             =   3048
  1065.          Width           =   1884
  1066.       End
  1067.       Begin VB.Label Label_IconTitleWrap 
  1068.          Caption         =   "Wrap title"
  1069.          Enabled         =   0   'False
  1070.          ForeColor       =   &H00800000&
  1071.          Height          =   252
  1072.          Left            =   6492
  1073.          TabIndex        =   94
  1074.          Top             =   3048
  1075.          Width           =   1812
  1076.       End
  1077.       Begin VB.Label Label66 
  1078.          Caption         =   "Right aligned"
  1079.          Enabled         =   0   'False
  1080.          ForeColor       =   &H00800000&
  1081.          Height          =   252
  1082.          Left            =   4332
  1083.          TabIndex        =   93
  1084.          Top             =   3888
  1085.          Width           =   1812
  1086.       End
  1087.       Begin VB.Label Label_MenuFont 
  1088.          Caption         =   "Label67"
  1089.          Enabled         =   0   'False
  1090.          ForeColor       =   &H00800000&
  1091.          Height          =   252
  1092.          Left            =   6480
  1093.          TabIndex        =   92
  1094.          Top             =   3888
  1095.          Width           =   1884
  1096.       End
  1097.    End
  1098.    Begin VB.PictureBox Page 
  1099.       BorderStyle     =   0  'None
  1100.       ClipControls    =   0   'False
  1101.       Height          =   4896
  1102.       Index           =   3
  1103.       Left            =   240
  1104.       ScaleHeight     =   4890
  1105.       ScaleWidth      =   8640
  1106.       TabIndex        =   4
  1107.       TabStop         =   0   'False
  1108.       Top             =   480
  1109.       Width           =   8640
  1110.       Begin VB.Label Label26 
  1111.          Caption         =   "Local Time name            :"
  1112.          Height          =   252
  1113.          Left            =   2400
  1114.          TabIndex        =   83
  1115.          Top             =   840
  1116.          Width           =   2052
  1117.       End
  1118.       Begin VB.Label Label27 
  1119.          Caption         =   "Time zone                         :"
  1120.          Height          =   252
  1121.          Left            =   2400
  1122.          TabIndex        =   82
  1123.          Top             =   1440
  1124.          Width           =   2052
  1125.       End
  1126.       Begin VB.Label Label28 
  1127.          Caption         =   "Greenwich Mean Time  :"
  1128.          Height          =   252
  1129.          Left            =   2400
  1130.          TabIndex        =   81
  1131.          Top             =   2280
  1132.          Width           =   2052
  1133.       End
  1134.       Begin VB.Label Label29 
  1135.          Caption         =   "Local time                          :"
  1136.          Height          =   252
  1137.          Left            =   2400
  1138.          TabIndex        =   80
  1139.          Top             =   3120
  1140.          Width           =   2052
  1141.       End
  1142.       Begin VB.Label Label30 
  1143.          Caption         =   "Windows startup              :"
  1144.          Height          =   252
  1145.          Left            =   2400
  1146.          TabIndex        =   79
  1147.          Top             =   3720
  1148.          Width           =   2052
  1149.       End
  1150.       Begin VB.Label Label_LocalTimeName 
  1151.          Caption         =   "Label32"
  1152.          ForeColor       =   &H00800000&
  1153.          Height          =   252
  1154.          Left            =   4440
  1155.          TabIndex        =   78
  1156.          Top             =   840
  1157.          Width           =   3972
  1158.       End
  1159.       Begin VB.Label Label_TimeZone 
  1160.          Caption         =   "Label33"
  1161.          ForeColor       =   &H00800000&
  1162.          Height          =   252
  1163.          Left            =   4440
  1164.          TabIndex        =   77
  1165.          Top             =   1440
  1166.          Width           =   3972
  1167.       End
  1168.       Begin VB.Label Label_GMTtime 
  1169.          Caption         =   "Label34"
  1170.          ForeColor       =   &H00800000&
  1171.          Height          =   252
  1172.          Left            =   4440
  1173.          TabIndex        =   76
  1174.          Top             =   2280
  1175.          Width           =   3972
  1176.       End
  1177.       Begin VB.Label Label_LocalTime 
  1178.          Caption         =   "Label35"
  1179.          ForeColor       =   &H00800000&
  1180.          Height          =   252
  1181.          Left            =   4440
  1182.          TabIndex        =   75
  1183.          Top             =   3120
  1184.          Width           =   3972
  1185.       End
  1186.       Begin VB.Label Label_WinStartTime2 
  1187.          Caption         =   "Label36"
  1188.          ForeColor       =   &H00800000&
  1189.          Height          =   252
  1190.          Left            =   4440
  1191.          TabIndex        =   74
  1192.          Top             =   3720
  1193.          Width           =   3972
  1194.       End
  1195.       Begin VB.Image Image13 
  1196.          Height          =   1452
  1197.          Left            =   0
  1198.          Picture         =   "Main.frx":8A56
  1199.          Stretch         =   -1  'True
  1200.          Top             =   960
  1201.          Width           =   2292
  1202.       End
  1203.    End
  1204.    Begin VB.PictureBox Page 
  1205.       BorderStyle     =   0  'None
  1206.       ClipControls    =   0   'False
  1207.       Height          =   4875
  1208.       Index           =   2
  1209.       Left            =   240
  1210.       ScaleHeight     =   4875
  1211.       ScaleWidth      =   8640
  1212.       TabIndex        =   3
  1213.       TabStop         =   0   'False
  1214.       Top             =   480
  1215.       Width           =   8640
  1216.       Begin VB.CheckBox Check_DebugVersion 
  1217.          Enabled         =   0   'False
  1218.          ForeColor       =   &H00800000&
  1219.          Height          =   252
  1220.          Left            =   5535
  1221.          TabIndex        =   48
  1222.          Top             =   360
  1223.          Width           =   202
  1224.       End
  1225.       Begin VB.CheckBox Check_PenWindows 
  1226.          Enabled         =   0   'False
  1227.          ForeColor       =   &H00800000&
  1228.          Height          =   252
  1229.          Left            =   4104
  1230.          TabIndex        =   47
  1231.          Top             =   360
  1232.          Width           =   202
  1233.       End
  1234.       Begin VB.CheckBox Check_MiddleEastWin 
  1235.          Enabled         =   0   'False
  1236.          ForeColor       =   &H00800000&
  1237.          Height          =   252
  1238.          Left            =   6975
  1239.          TabIndex        =   46
  1240.          Top             =   360
  1241.          Width           =   202
  1242.       End
  1243.       Begin VB.CheckBox Check_Unicode 
  1244.          Enabled         =   0   'False
  1245.          ForeColor       =   &H00800000&
  1246.          Height          =   252
  1247.          Left            =   4104
  1248.          TabIndex        =   45
  1249.          Top             =   1905
  1250.          Width           =   202
  1251.       End
  1252.       Begin VB.CheckBox Check_CasePreserved 
  1253.          Enabled         =   0   'False
  1254.          ForeColor       =   &H00800000&
  1255.          Height          =   252
  1256.          Left            =   5535
  1257.          TabIndex        =   44
  1258.          Top             =   1935
  1259.          Width           =   202
  1260.       End
  1261.       Begin VB.CheckBox Check_CaseSensitive 
  1262.          Enabled         =   0   'False
  1263.          ForeColor       =   &H00800000&
  1264.          Height          =   252
  1265.          Left            =   6975
  1266.          TabIndex        =   43
  1267.          Top             =   1935
  1268.          Width           =   202
  1269.       End
  1270.       Begin VB.Label Label_PLUSversion 
  1271.          Caption         =   "Label20"
  1272.          ForeColor       =   &H00800000&
  1273.          Height          =   255
  1274.          Left            =   4110
  1275.          TabIndex        =   148
  1276.          Top             =   720
  1277.          Width           =   4320
  1278.       End
  1279.       Begin VB.Label Label63 
  1280.          Caption         =   "Microsoft PLUS             :"
  1281.          Height          =   255
  1282.          Left            =   2175
  1283.          TabIndex        =   147
  1284.          Top             =   720
  1285.          Width           =   1890
  1286.       End
  1287.       Begin VB.Label Label11 
  1288.          Caption         =   "Operating system           :"
  1289.          Height          =   255
  1290.          Left            =   2175
  1291.          TabIndex        =   73
  1292.          Top             =   90
  1293.          Width           =   1890
  1294.       End
  1295.       Begin VB.Label Label15 
  1296.          Caption         =   "File system                    :"
  1297.          Height          =   255
  1298.          Left            =   2175
  1299.          TabIndex        =   72
  1300.          Top             =   1185
  1301.          Width           =   1905
  1302.       End
  1303.       Begin VB.Label Label16 
  1304.          Caption         =   "Shell                              :"
  1305.          Height          =   255
  1306.          Left            =   2175
  1307.          TabIndex        =   71
  1308.          Top             =   2280
  1309.          Width           =   1905
  1310.       End
  1311.       Begin VB.Label Label18 
  1312.          Caption         =   "Language                     :"
  1313.          Height          =   255
  1314.          Left            =   2175
  1315.          TabIndex        =   70
  1316.          Top             =   2745
  1317.          Width           =   1905
  1318.       End
  1319.       Begin VB.Label Label19 
  1320.          Caption         =   "Code page (Ansi/Oem) :"
  1321.          Height          =   255
  1322.          Left            =   2175
  1323.          TabIndex        =   69
  1324.          Top             =   3195
  1325.          Width           =   1905
  1326.       End
  1327.       Begin VB.Label Label_OS 
  1328.          Caption         =   "Label20"
  1329.          ForeColor       =   &H00800000&
  1330.          Height          =   255
  1331.          Left            =   4110
  1332.          TabIndex        =   68
  1333.          Top             =   90
  1334.          Width           =   4335
  1335.       End
  1336.       Begin VB.Label Label_FileSystem 
  1337.          Caption         =   "Label21"
  1338.          ForeColor       =   &H00800000&
  1339.          Height          =   255
  1340.          Left            =   4125
  1341.          TabIndex        =   67
  1342.          Top             =   1200
  1343.          Width           =   4335
  1344.       End
  1345.       Begin VB.Label Label_Shell 
  1346.          Caption         =   "Label22"
  1347.          ForeColor       =   &H00800000&
  1348.          Height          =   255
  1349.          Left            =   4110
  1350.          TabIndex        =   66
  1351.          Top             =   2280
  1352.          Width           =   4335
  1353.       End
  1354.       Begin VB.Label Label_Language 
  1355.          Caption         =   "Label24"
  1356.          ForeColor       =   &H00800000&
  1357.          Height          =   255
  1358.          Left            =   4125
  1359.          TabIndex        =   65
  1360.          Top             =   2760
  1361.          Width           =   4335
  1362.       End
  1363.       Begin VB.Label Label_CodePage 
  1364.          Caption         =   "Label25"
  1365.          ForeColor       =   &H00800000&
  1366.          Height          =   255
  1367.          Left            =   4110
  1368.          TabIndex        =   64
  1369.          Top             =   3225
  1370.          Width           =   4335
  1371.       End
  1372.       Begin VB.Label Label35 
  1373.          Caption         =   "Windows directory         :"
  1374.          Height          =   255
  1375.          Left            =   2175
  1376.          TabIndex        =   63
  1377.          Top             =   4560
  1378.          Width           =   1905
  1379.       End
  1380.       Begin VB.Label Label39 
  1381.          Caption         =   "Windows start               :"
  1382.          Height          =   255
  1383.          Left            =   2175
  1384.          TabIndex        =   62
  1385.          Top             =   4110
  1386.          Width           =   1905
  1387.       End
  1388.       Begin VB.Label Label_WinDir 
  1389.          Caption         =   "Label40"
  1390.          ForeColor       =   &H00800000&
  1391.          Height          =   255
  1392.          Left            =   4110
  1393.          TabIndex        =   61
  1394.          Top             =   4575
  1395.          Width           =   4335
  1396.       End
  1397.       Begin VB.Label Label_WinStartTime1 
  1398.          Caption         =   "Label42"
  1399.          ForeColor       =   &H00800000&
  1400.          Height          =   255
  1401.          Left            =   4095
  1402.          TabIndex        =   60
  1403.          Top             =   4125
  1404.          Width           =   4335
  1405.       End
  1406.       Begin VB.Label Label6 
  1407.          Caption         =   "File names                     :"
  1408.          Height          =   255
  1409.          Left            =   2175
  1410.          TabIndex        =   59
  1411.          Top             =   1665
  1412.          Width           =   1890
  1413.       End
  1414.       Begin VB.Label Label22 
  1415.          Caption         =   "
  1416.          BeginProperty Font 
  1417.             Name            =   "Wingdings"
  1418.             Size            =   82.5
  1419.             Charset         =   2
  1420.             Weight          =   400
  1421.             Underline       =   0   'False
  1422.             Italic          =   -1  'True
  1423.             Strikethrough   =   0   'False
  1424.          EndProperty
  1425.          ForeColor       =   &H00FF0000&
  1426.          Height          =   2052
  1427.          Left            =   0
  1428.          TabIndex        =   58
  1429.          Top             =   960
  1430.          Width           =   2076
  1431.       End
  1432.       Begin VB.Label Label23 
  1433.          Caption         =   "Keybord layout              :"
  1434.          Height          =   255
  1435.          Left            =   2175
  1436.          TabIndex        =   57
  1437.          Top             =   3645
  1438.          Width           =   1890
  1439.       End
  1440.       Begin VB.Label Label_KeyboardLayout 
  1441.          Caption         =   "Label24"
  1442.          ForeColor       =   &H00800000&
  1443.          Height          =   255
  1444.          Left            =   4110
  1445.          TabIndex        =   56
  1446.          Top             =   3690
  1447.          Width           =   4335
  1448.       End
  1449.       Begin VB.Label Label24 
  1450.          Caption         =   "Pen Windows"
  1451.          Enabled         =   0   'False
  1452.          ForeColor       =   &H00800000&
  1453.          Height          =   255
  1454.          Left            =   4320
  1455.          TabIndex        =   55
  1456.          Top             =   390
  1457.          Width           =   1215
  1458.       End
  1459.       Begin VB.Label Label25 
  1460.          Caption         =   "Debug version"
  1461.          Enabled         =   0   'False
  1462.          ForeColor       =   &H00800000&
  1463.          Height          =   255
  1464.          Left            =   5745
  1465.          TabIndex        =   54
  1466.          Top             =   405
  1467.          Width           =   1215
  1468.       End
  1469.       Begin VB.Label Label40 
  1470.          Caption         =   "Hebrew/Arabic"
  1471.          Enabled         =   0   'False
  1472.          ForeColor       =   &H00800000&
  1473.          Height          =   255
  1474.          Left            =   7185
  1475.          TabIndex        =   53
  1476.          Top             =   390
  1477.          Width           =   1245
  1478.       End
  1479.       Begin VB.Label Label41 
  1480.          Caption         =   "Unicode"
  1481.          Enabled         =   0   'False
  1482.          ForeColor       =   &H00800000&
  1483.          Height          =   255
  1484.          Left            =   4320
  1485.          TabIndex        =   52
  1486.          Top             =   1950
  1487.          Width           =   1215
  1488.       End
  1489.       Begin VB.Label Label42 
  1490.          Caption         =   "Case preserved"
  1491.          Enabled         =   0   'False
  1492.          ForeColor       =   &H00800000&
  1493.          Height          =   255
  1494.          Left            =   5745
  1495.          TabIndex        =   51
  1496.          Top             =   1950
  1497.          Width           =   1215
  1498.       End
  1499.       Begin VB.Label Label43 
  1500.          Caption         =   "Case sensitive"
  1501.          Enabled         =   0   'False
  1502.          ForeColor       =   &H00800000&
  1503.          Height          =   255
  1504.          Left            =   7185
  1505.          TabIndex        =   50
  1506.          Top             =   1950
  1507.          Width           =   1305
  1508.       End
  1509.       Begin VB.Label Label_MaxFileNameLen 
  1510.          Caption         =   "Label51"
  1511.          ForeColor       =   &H00800000&
  1512.          Height          =   255
  1513.          Left            =   4125
  1514.          TabIndex        =   49
  1515.          Top             =   1680
  1516.          Width           =   4335
  1517.       End
  1518.    End
  1519.    Begin VB.PictureBox Page 
  1520.       BorderStyle     =   0  'None
  1521.       ClipControls    =   0   'False
  1522.       Height          =   4896
  1523.       Index           =   1
  1524.       Left            =   240
  1525.       ScaleHeight     =   4890
  1526.       ScaleWidth      =   8640
  1527.       TabIndex        =   2
  1528.       TabStop         =   0   'False
  1529.       Top             =   480
  1530.       Width           =   8640
  1531.       Begin VB.CheckBox Check_NumLock 
  1532.          Enabled         =   0   'False
  1533.          ForeColor       =   &H00800000&
  1534.          Height          =   252
  1535.          Left            =   4200
  1536.          TabIndex        =   25
  1537.          Top             =   2415
  1538.          Width           =   202
  1539.       End
  1540.       Begin VB.CheckBox Check_CapsLock 
  1541.          Enabled         =   0   'False
  1542.          ForeColor       =   &H00800000&
  1543.          Height          =   252
  1544.          Left            =   5580
  1545.          TabIndex        =   24
  1546.          Top             =   2400
  1547.          Width           =   202
  1548.       End
  1549.       Begin VB.CheckBox Check_ScrollLock 
  1550.          Enabled         =   0   'False
  1551.          ForeColor       =   &H00800000&
  1552.          Height          =   252
  1553.          Left            =   7065
  1554.          TabIndex        =   23
  1555.          Top             =   2415
  1556.          Width           =   202
  1557.       End
  1558.       Begin VB.CheckBox Check_MouseSwap 
  1559.          Enabled         =   0   'False
  1560.          Height          =   252
  1561.          Left            =   5580
  1562.          TabIndex        =   22
  1563.          Top             =   1440
  1564.          Width           =   228
  1565.       End
  1566.       Begin VB.CheckBox Check_MouseTrails 
  1567.          Enabled         =   0   'False
  1568.          Height          =   276
  1569.          Left            =   4200
  1570.          TabIndex        =   21
  1571.          Top             =   1440
  1572.          Width           =   216
  1573.       End
  1574.       Begin VB.Label Label_SCSIadapter 
  1575.          Caption         =   "Label60"
  1576.          ForeColor       =   &H00800000&
  1577.          Height          =   255
  1578.          Left            =   4200
  1579.          TabIndex        =   146
  1580.          Top             =   3780
  1581.          Width           =   4275
  1582.       End
  1583.       Begin VB.Label Label62 
  1584.          Caption         =   "Scsi adapter     :"
  1585.          Height          =   255
  1586.          Left            =   2880
  1587.          TabIndex        =   145
  1588.          Top             =   3765
  1589.          Width           =   1320
  1590.       End
  1591.       Begin VB.Image Image2 
  1592.          Height          =   480
  1593.          Left            =   2370
  1594.          Picture         =   "Main.frx":D31C
  1595.          Top             =   3645
  1596.          Width           =   480
  1597.       End
  1598.       Begin VB.Image Image6 
  1599.          Height          =   480
  1600.          Left            =   2370
  1601.          Picture         =   "Main.frx":D75E
  1602.          Top             =   180
  1603.          Width           =   480
  1604.       End
  1605.       Begin VB.Image Image7 
  1606.          Height          =   480
  1607.          Left            =   2370
  1608.          Picture         =   "Main.frx":DA68
  1609.          Top             =   1935
  1610.          Width           =   480
  1611.       End
  1612.       Begin VB.Image Image8 
  1613.          Height          =   480
  1614.          Left            =   2370
  1615.          Picture         =   "Main.frx":DEAA
  1616.          Top             =   1005
  1617.          Width           =   480
  1618.       End
  1619.       Begin VB.Label Label2 
  1620.          Caption         =   "Monitor type       :"
  1621.          Height          =   255
  1622.          Left            =   2880
  1623.          TabIndex        =   42
  1624.          Top             =   135
  1625.          Width           =   1320
  1626.       End
  1627.       Begin VB.Label Label3 
  1628.          Caption         =   "Keyboard           :"
  1629.          Height          =   255
  1630.          Left            =   2880
  1631.          TabIndex        =   41
  1632.          Top             =   2070
  1633.          Width           =   1335
  1634.       End
  1635.       Begin VB.Label Label5 
  1636.          Caption         =   "Mouse               :"
  1637.          Height          =   255
  1638.          Left            =   2880
  1639.          TabIndex        =   40
  1640.          Top             =   1125
  1641.          Width           =   1335
  1642.       End
  1643.       Begin VB.Image Image9 
  1644.          Height          =   480
  1645.          Left            =   2370
  1646.          Picture         =   "Main.frx":E2EC
  1647.          Top             =   4380
  1648.          Width           =   480
  1649.       End
  1650.       Begin VB.Label Label31 
  1651.          Caption         =   "Default printer   :"
  1652.          Height          =   255
  1653.          Left            =   2880
  1654.          TabIndex        =   39
  1655.          Top             =   4530
  1656.          Width           =   1320
  1657.       End
  1658.       Begin VB.Label Label_Monitor 
  1659.          Caption         =   "Label20"
  1660.          ForeColor       =   &H00800000&
  1661.          Height          =   255
  1662.          Left            =   4200
  1663.          TabIndex        =   38
  1664.          Top             =   150
  1665.          Width           =   4350
  1666.       End
  1667.       Begin VB.Label Label_Keyboard 
  1668.          Caption         =   "Label21"
  1669.          ForeColor       =   &H00800000&
  1670.          Height          =   255
  1671.          Left            =   4200
  1672.          TabIndex        =   37
  1673.          Top             =   2070
  1674.          UseMnemonic     =   0   'False
  1675.          Width           =   4215
  1676.       End
  1677.       Begin VB.Label Label_Mouse 
  1678.          Caption         =   "Label24"
  1679.          ForeColor       =   &H00800000&
  1680.          Height          =   255
  1681.          Left            =   4200
  1682.          TabIndex        =   36
  1683.          Top             =   1140
  1684.          Width           =   4215
  1685.       End
  1686.       Begin VB.Label Label_DefaultPrinter 
  1687.          Caption         =   "Label25"
  1688.          ForeColor       =   &H00800000&
  1689.          Height          =   255
  1690.          Left            =   4200
  1691.          TabIndex        =   35
  1692.          Top             =   4530
  1693.          Width           =   4275
  1694.       End
  1695.       Begin VB.Image Image12 
  1696.          Height          =   2292
  1697.          Left            =   0
  1698.          Picture         =   "Main.frx":E5F6
  1699.          Stretch         =   -1  'True
  1700.          Top             =   612
  1701.          Width           =   2532
  1702.       End
  1703.       Begin VB.Label Label13 
  1704.          Caption         =   "Display mode   :"
  1705.          Height          =   255
  1706.          Left            =   2880
  1707.          TabIndex        =   34
  1708.          Top             =   540
  1709.          Width           =   1335
  1710.       End
  1711.       Begin VB.Label Label_DisplayMode 
  1712.          Caption         =   "Label23"
  1713.          ForeColor       =   &H00800000&
  1714.          Height          =   255
  1715.          Left            =   4200
  1716.          TabIndex        =   33
  1717.          Top             =   540
  1718.          Width           =   4275
  1719.       End
  1720.       Begin VB.Label Label44 
  1721.          Caption         =   "Num Lock"
  1722.          Enabled         =   0   'False
  1723.          ForeColor       =   &H00800000&
  1724.          Height          =   255
  1725.          Left            =   4425
  1726.          TabIndex        =   32
  1727.          Top             =   2445
  1728.          Width           =   1095
  1729.       End
  1730.       Begin VB.Label Label45 
  1731.          Caption         =   "Caps Lock"
  1732.          Enabled         =   0   'False
  1733.          ForeColor       =   &H00800000&
  1734.          Height          =   255
  1735.          Left            =   5805
  1736.          TabIndex        =   31
  1737.          Top             =   2430
  1738.          Width           =   1185
  1739.       End
  1740.       Begin VB.Label Label46 
  1741.          Caption         =   "Scroll Lock"
  1742.          Enabled         =   0   'False
  1743.          ForeColor       =   &H00800000&
  1744.          Height          =   255
  1745.          Left            =   7290
  1746.          TabIndex        =   30
  1747.          Top             =   2430
  1748.          Width           =   1125
  1749.       End
  1750.       Begin VB.Label Label59 
  1751.          Caption         =   "Sound device   :"
  1752.          Height          =   255
  1753.          Left            =   2880
  1754.          TabIndex        =   29
  1755.          Top             =   2970
  1756.          Width           =   1320
  1757.       End
  1758.       Begin VB.Image Image1 
  1759.          Height          =   480
  1760.          Left            =   2370
  1761.          Picture         =   "Main.frx":10898
  1762.          Top             =   2865
  1763.          Width           =   480
  1764.       End
  1765.       Begin VB.Label Label_SoundDevice 
  1766.          Caption         =   "Label60"
  1767.          ForeColor       =   &H00800000&
  1768.          Height          =   255
  1769.          Left            =   4200
  1770.          TabIndex        =   28
  1771.          Top             =   2970
  1772.          Width           =   4275
  1773.       End
  1774.       Begin VB.Label Label60 
  1775.          Caption         =   "Swapped buttons"
  1776.          Enabled         =   0   'False
  1777.          ForeColor       =   &H00800000&
  1778.          Height          =   255
  1779.          Left            =   5805
  1780.          TabIndex        =   27
  1781.          Top             =   1455
  1782.          Width           =   2130
  1783.       End
  1784.       Begin VB.Label Label61 
  1785.          Caption         =   "Trails"
  1786.          Enabled         =   0   'False
  1787.          ForeColor       =   &H00800000&
  1788.          Height          =   270
  1789.          Left            =   4425
  1790.          TabIndex        =   26
  1791.          Top             =   1455
  1792.          Width           =   990
  1793.       End
  1794.    End
  1795.    Begin VB.PictureBox Page 
  1796.       BorderStyle     =   0  'None
  1797.       ClipControls    =   0   'False
  1798.       Height          =   4896
  1799.       Index           =   0
  1800.       Left            =   240
  1801.       ScaleHeight     =   4890
  1802.       ScaleWidth      =   8640
  1803.       TabIndex        =   1
  1804.       TabStop         =   0   'False
  1805.       Top             =   480
  1806.       Width           =   8640
  1807.       Begin VB.Label Label_NumberOfProcessors 
  1808.          Caption         =   "Label12"
  1809.          ForeColor       =   &H00800000&
  1810.          Height          =   372
  1811.          Left            =   3960
  1812.          TabIndex        =   144
  1813.          Top             =   600
  1814.          Width           =   4452
  1815.       End
  1816.       Begin VB.Label Label7 
  1817.          Caption         =   "Processor              :"
  1818.          Height          =   252
  1819.          Left            =   2400
  1820.          TabIndex        =   20
  1821.          Top             =   240
  1822.          Width           =   1548
  1823.       End
  1824.       Begin VB.Label Label9 
  1825.          Caption         =   "Physical memory    :"
  1826.          Height          =   252
  1827.          Left            =   2400
  1828.          TabIndex        =   19
  1829.          Top             =   1080
  1830.          Width           =   1548
  1831.       End
  1832.       Begin VB.Label Label10 
  1833.          Caption         =   "Memory utilization   :"
  1834.          Height          =   252
  1835.          Left            =   2400
  1836.          TabIndex        =   18
  1837.          Top             =   1920
  1838.          Width           =   1560
  1839.       End
  1840.       Begin VB.Label Label_Processor 
  1841.          Caption         =   "Label11"
  1842.          ForeColor       =   &H00800000&
  1843.          Height          =   372
  1844.          Left            =   3960
  1845.          TabIndex        =   17
  1846.          Top             =   240
  1847.          Width           =   4452
  1848.       End
  1849.       Begin VB.Label Label_PhysicalMemory 
  1850.          Caption         =   "Label13"
  1851.          ForeColor       =   &H00800000&
  1852.          Height          =   252
  1853.          Left            =   3960
  1854.          TabIndex        =   16
  1855.          Top             =   1080
  1856.          Width           =   4452
  1857.       End
  1858.       Begin VB.Label Label_MemoryUtilization 
  1859.          Caption         =   "Label14"
  1860.          ForeColor       =   &H00800000&
  1861.          Height          =   252
  1862.          Left            =   3960
  1863.          TabIndex        =   15
  1864.          Top             =   1920
  1865.          Width           =   4452
  1866.       End
  1867.       Begin VB.Image Image11 
  1868.          Height          =   2292
  1869.          Left            =   0
  1870.          Picture         =   "Main.frx":10BA2
  1871.          Stretch         =   -1  'True
  1872.          Top             =   600
  1873.          Width           =   2292
  1874.       End
  1875.       Begin VB.Label Label1 
  1876.          Caption         =   "Display adapter      :"
  1877.          Height          =   252
  1878.          Left            =   2400
  1879.          TabIndex        =   14
  1880.          Top             =   3600
  1881.          Width           =   1548
  1882.       End
  1883.       Begin VB.Label Label_DisplayAdapter 
  1884.          Caption         =   "Label14"
  1885.          ForeColor       =   &H00800000&
  1886.          Height          =   330
  1887.          Left            =   3960
  1888.          TabIndex        =   13
  1889.          Top             =   3600
  1890.          Width           =   4650
  1891.       End
  1892.       Begin VB.Label Label32 
  1893.          Caption         =   "BIOS                     :"
  1894.          Height          =   252
  1895.          Left            =   2412
  1896.          TabIndex        =   11
  1897.          Top             =   2772
  1898.          Width           =   1548
  1899.       End
  1900.       Begin VB.Label Label_BIOS 
  1901.          Caption         =   "Label53"
  1902.          ForeColor       =   &H00800000&
  1903.          Height          =   735
  1904.          Left            =   3960
  1905.          TabIndex        =   10
  1906.          Top             =   2760
  1907.          Width           =   4650
  1908.          WordWrap        =   -1  'True
  1909.       End
  1910.       Begin VB.Label Label_MaxResolution 
  1911.          Caption         =   "Label8"
  1912.          ForeColor       =   &H00800000&
  1913.          Height          =   276
  1914.          Left            =   3960
  1915.          TabIndex        =   9
  1916.          Top             =   4320
  1917.          Width           =   4452
  1918.       End
  1919.       Begin VB.Label Label_MaxColors 
  1920.          Caption         =   "Label8"
  1921.          ForeColor       =   &H00800000&
  1922.          Height          =   252
  1923.          Left            =   3960
  1924.          TabIndex        =   8
  1925.          Top             =   3960
  1926.          Width           =   4452
  1927.       End
  1928.    End
  1929.    Begin VB.Timer Timer2 
  1930.       Interval        =   1000
  1931.       Left            =   1440
  1932.       Top             =   5520
  1933.    End
  1934.    Begin VB.Timer Timer1 
  1935.       Interval        =   5000
  1936.       Left            =   960
  1937.       Top             =   5520
  1938.    End
  1939.    Begin ComctlLib.TabStrip TabStrip1 
  1940.       Height          =   5325
  1941.       Left            =   90
  1942.       TabIndex        =   0
  1943.       Top             =   120
  1944.       Width           =   8880
  1945.       _ExtentX        =   15663
  1946.       _ExtentY        =   9393
  1947.       TabWidthStyle   =   2
  1948.       TabFixedWidth   =   1870
  1949.       _Version        =   327680
  1950.       BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7} 
  1951.          NumTabs         =   9
  1952.          BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  1953.             Caption         =   "&Machine"
  1954.             Object.Tag             =   ""
  1955.             Object.ToolTipText     =   "Processor, Ram, BIOS ..."
  1956.             ImageVarType    =   2
  1957.          EndProperty
  1958.          BeginProperty Tab2 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  1959.             Caption         =   "&Peripherals"
  1960.             Object.Tag             =   ""
  1961.             Object.ToolTipText     =   "Monitor, Keyboard, Sound ..."
  1962.             ImageVarType    =   2
  1963.          EndProperty
  1964.          BeginProperty Tab3 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  1965.             Caption         =   "&Windows"
  1966.             Object.Tag             =   ""
  1967.             Object.ToolTipText     =   "Version, language, code page..."
  1968.             ImageVarType    =   2
  1969.          EndProperty
  1970.          BeginProperty Tab4 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  1971.             Caption         =   "&Time"
  1972.             Object.Tag             =   ""
  1973.             Object.ToolTipText     =   "Time zone, Windows startup time..."
  1974.             ImageVarType    =   2
  1975.          EndProperty
  1976.          BeginProperty Tab5 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  1977.             Caption         =   "&Desktop"
  1978.             Object.Tag             =   ""
  1979.             Object.ToolTipText     =   "Wallpaper, screen saver, ..."
  1980.             ImageVarType    =   2
  1981.          EndProperty
  1982.          BeginProperty Tab6 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  1983.             Caption         =   "&Resources"
  1984.             Object.Tag             =   ""
  1985.             Object.ToolTipText     =   "Free memory, processor load, ..."
  1986.             ImageVarType    =   2
  1987.          EndProperty
  1988.          BeginProperty Tab7 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  1989.             Caption         =   "Dri&ves"
  1990.             Object.Tag             =   ""
  1991.             Object.ToolTipText     =   "Existing drives, path, ..."
  1992.             ImageVarType    =   2
  1993.          EndProperty
  1994.          BeginProperty Tab8 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  1995.             Caption         =   "&Network"
  1996.             Object.Tag             =   ""
  1997.             Object.ToolTipText     =   "Adapter, Workgroup, ..."
  1998.             ImageVarType    =   2
  1999.          EndProperty
  2000.          BeginProperty Tab9 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  2001.             Caption         =   "&About ..."
  2002.             Object.Tag             =   ""
  2003.             Object.ToolTipText     =   "Application definition..."
  2004.             ImageVarType    =   2
  2005.          EndProperty
  2006.       EndProperty
  2007.    End
  2008.    Begin TuneItLib.TuneIt TuneIt1 
  2009.       Left            =   210
  2010.       Top             =   5505
  2011.       _Version        =   131077
  2012.       _ExtentX        =   1080
  2013.       _ExtentY        =   868
  2014.       _StockProps     =   64
  2015.       BeginProperty CaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  2016.          Name            =   "MS Sans Serif"
  2017.          Size            =   8.25
  2018.          Charset         =   178
  2019.          Weight          =   700
  2020.          Underline       =   0   'False
  2021.          Italic          =   0   'False
  2022.          Strikethrough   =   0   'False
  2023.       EndProperty
  2024.       BeginProperty SmallCaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  2025.          Name            =   "MS Sans Serif"
  2026.          Size            =   8.25
  2027.          Charset         =   178
  2028.          Weight          =   400
  2029.          Underline       =   0   'False
  2030.          Italic          =   0   'False
  2031.          Strikethrough   =   0   'False
  2032.       EndProperty
  2033.       BeginProperty StatusFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  2034.          Name            =   "MS Sans Serif"
  2035.          Size            =   8.25
  2036.          Charset         =   178
  2037.          Weight          =   400
  2038.          Underline       =   0   'False
  2039.          Italic          =   0   'False
  2040.          Strikethrough   =   0   'False
  2041.       EndProperty
  2042.       BeginProperty MessageFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  2043.          Name            =   "MS Sans Serif"
  2044.          Size            =   8.25
  2045.          Charset         =   178
  2046.          Weight          =   400
  2047.          Underline       =   0   'False
  2048.          Italic          =   0   'False
  2049.          Strikethrough   =   0   'False
  2050.       EndProperty
  2051.       BeginProperty MenuFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  2052.          Name            =   "MS Sans Serif"
  2053.          Size            =   8.25
  2054.          Charset         =   178
  2055.          Weight          =   400
  2056.          Underline       =   0   'False
  2057.          Italic          =   0   'False
  2058.          Strikethrough   =   0   'False
  2059.       EndProperty
  2060.       BeginProperty IconTitleFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  2061.          Name            =   "MS Sans Serif"
  2062.          Size            =   8.25
  2063.          Charset         =   178
  2064.          Weight          =   400
  2065.          Underline       =   0   'False
  2066.          Italic          =   0   'False
  2067.          Strikethrough   =   0   'False
  2068.       EndProperty
  2069.    End
  2070. Attribute VB_Name = "Form_Main"
  2071. Attribute VB_GlobalNameSpace = False
  2072. Attribute VB_Creatable = False
  2073. Attribute VB_PredeclaredId = True
  2074. Attribute VB_Exposed = False
  2075. Private Sub Command_Quit_Click()
  2076. End Sub
  2077. Private Sub Form_Load()
  2078.  Page(0).ZOrder 0
  2079.  For I = 0 To TabStrip1.Tabs.Count - 1
  2080.   Page(I).Left = 240
  2081.   Page(I).Top = 480
  2082.  Next I
  2083.  Timer1.Interval = 5000
  2084.  '*********   Initialize the controls to show the related system informations ...     ********
  2085.  Label_Processor.Caption = TuneIt1.ProcessorName + IIf(TuneIt1.SlowMachine, "  ( Slow for this operating system. )", "")
  2086.  Label_NumberOfProcessors.Caption = "( " + CStr(TuneIt1.NumberOfProcessors) + " processor" + IIf(TuneIt1.NumberOfProcessors > 1, "s", "") + " detected. )"
  2087.  Label_PhysicalMemory.Caption = CStr(CInt(TuneIt1.TotalPhysicalMemory / 1024#)) + " MB  RAM"
  2088.  Label_DisplayAdapter.Caption = TuneIt1.DisplayAdapter + "  [ driver version " + TuneIt1.DisplayAdapterVersion + " ]"
  2089.  Label_BIOS.Caption = TuneIt1.BIOS
  2090.  Label_MaxColors.Caption = "Maximum colors    :  " + CStr(2 ^ TuneIt1.MaxColorResolution)
  2091.  Label_MaxResolution.Caption = "Highest resolution :  " + CStr(TuneIt1.MaxHorizontalResolution) + "
  2092. " + CStr(TuneIt1.MaxVerticalResolution)
  2093.  Label_LocalTimeName.Caption = TuneIt1.LocalTimeName
  2094.  Label_TimeZone.Caption = TuneIt1.TimeZone
  2095.  Label_WinStartTime2.Caption = Format(TuneIt1.WindowsStartupTime, "ddd, mmm d, yyyy  -  hh:mm:ss AMPM")
  2096.  Label_WinUser.Caption = TuneIt1.WindowsUserName
  2097.  Label_WinOrganization.Caption = TuneIt1.RegisteredOrganization
  2098.  Label_ProductID.Caption = TuneIt1.ProductID
  2099.  Label_OS.Caption = TuneIt1.WindowsPlatform + ",  Ver. " + TuneIt1.WinVersion
  2100.  Label_PLUSversion.Caption = IIf(TuneIt1.PlusInstalled, "version: " + TuneIt1.PlusVersion, "Not installed")
  2101.  Check_PenWindows.Value = IIf(TuneIt1.PenWindows, 1, 0)
  2102.  Check_DebugVersion.Value = IIf(TuneIt1.DebugVersion, 1, 0)
  2103.  Check_MiddleEastWin.Value = IIf(TuneIt1.MiddleEastWindows, 1, 0)
  2104.  Label_MaxFileNameLen.Caption = "Maximum " + CStr(TuneIt1.MaxFileNameLength) + " characters."
  2105.  Check_Unicode.Value = IIf(TuneIt1.UnicodeFileName, 1, 0)
  2106.  Check_CasePreserved.Value = IIf(TuneIt1.CasePreservedFileName, 1, 0)
  2107.  Check_CaseSensitive.Value = IIf(TuneIt1.CaseSensitiveFileName, 1, 0)
  2108.  Label_FileSystem.Caption = TuneIt1.FileSystem
  2109.  Label_Shell.Caption = TuneIt1.Shell
  2110.  Label_Language.Caption = TuneIt1.Language
  2111.  Label_CodePage.Caption = "( " + CStr(TuneIt1.AnsiCodePage) + " / " + CStr(TuneIt1.OemCodePage) + " )"
  2112.  Label_KeyboardLayout.Caption = TuneIt1.KeyboardLayout
  2113.  Label_WinDir.Caption = TuneIt1.WindowsDirectory
  2114.  Label_WinDir2.Caption = TuneIt1.WindowsDirectory
  2115.  Label_TempDir.Caption = TuneIt1.TempDirectory
  2116.  Label_COMSPEC = TuneIt1.COMSPEC
  2117.  Label_WinStartTime1.Caption = Choose(TuneIt1.BootType + 1, "Normal boot", "Safe mode", "Safe mode with network support") + "  [ at : " + CStr(TuneIt1.WindowsStartupTime) + " ]"
  2118.  Label_Path.Caption = TuneIt1.Path
  2119.  Label_DisplayMode.Caption = CStr(TuneIt1.HorizontalResolution) + "
  2120. " + CStr(TuneIt1.VerticalResolution) + " / " + CStr(2 ^ TuneIt1.BitsPerPixel) + " colors, " + IIf(TuneIt1.InterlacedDisplay, "Interlaced", "NON-Interlaced")
  2121.  Label_Monitor.Caption = TuneIt1.MonitorType + IIf(TuneIt1.EnergyStarMonitor, "   [Energy Star]", "")
  2122.  Label_Mouse.Caption = TuneIt1.MouseType + "  [ " + CStr(TuneIt1.MouseButtons) + " buttons " + IIf(TuneIt1.SwapMouseButtons, "/ Swapped ", "") + "]"
  2123.  Label_DefaultPrinter.Caption = TuneIt1.DefaultPrinter
  2124.  Label_Keyboard.Caption = TuneIt1.KeyboardType
  2125.  Label_SoundDevice.Caption = TuneIt1.SoundDevice
  2126.  Label_SCSIadapter.Caption = TuneIt1.SCSIAdapter
  2127.  Label_FDDs.Caption = CStr(TuneIt1.FloppyDrivesNumber)
  2128.  Label_HDDs.Caption = CStr(TuneIt1.HardDrivesNumber)
  2129.  Label_CDDrives.Caption = CStr(TuneIt1.CdDrivesNumber)
  2130.  Label_RamDrives.Caption = CStr(TuneIt1.RamDrivesNumber)
  2131.  Label_RemoteDrives.Caption = CStr(TuneIt1.RemoteDrivesNumber)
  2132.  Check_IconsUsingAllColors.Value = IIf(TuneIt1.IconsUsingAllColors, 1, 0)
  2133.  Check_IconTitleWrap.Value = IIf(TuneIt1.IconTitleWrap, 1, 0)
  2134.  If TuneIt1.NetworkPresent Then
  2135.    Label_WorkgroupName.Caption = TuneIt1.Workgroup
  2136.    Label_WorkgroupComputerName.Caption = TuneIt1.WorkgroupComputerName
  2137.    Label_WorkgroupComputerDesc.Caption = TuneIt1.WorkgroupComputerDescription
  2138.  Else
  2139.    Frame_Workgroup.Enabled = False
  2140.  End If
  2141.  Label_WEBbrowser.Caption = TuneIt1.WebBrowser
  2142.  Label_FTPclient.Caption = TuneIt1.FtpClient
  2143.  Label_EmailClient.Caption = TuneIt1.MailClient
  2144.  Label_TelnetClient.Caption = TuneIt1.TelnetClient
  2145.  Label_NetworkAdapter.Caption = TuneIt1.NetworkAdapter
  2146.  Label_Registration.Caption = "( " & TuneIt1.RegistrationStatus & " )"
  2147.  ' ***** Invoking Timer event for the first time to initialize the related screen items ...
  2148.  Timer1_Timer
  2149. End Sub
  2150. Private Sub Label_HomePage_Click()
  2151. DefaultBrowser = TuneIt1.WebBrowser
  2152. If Len(DefaultBrowser) > 0 Then
  2153.  RetVal = Shell(DefaultBrowser + " http://www.angelfire.com/me/majids/TuneItHome.html", 3)
  2154.  MsgBox "No Web browser available!"
  2155. End If
  2156. End Sub
  2157. Private Sub Label_Registration_Click()
  2158. '''' If the TuneIt ocx has been registered,        ''''
  2159. '''' no need to go to the online registration site.''''
  2160.  If Form_Main.TuneIt1.RegistrationStatus = "Registered" Then
  2161.   Exit Sub
  2162.  End If
  2163. '''' Obtain the default Web browser address ''''
  2164.  DefaultBrowser = Form_Main.TuneIt1.WebBrowser
  2165. '''' If we have a default Web browser in system,
  2166. '''' add the registration address as command line
  2167. '''' and run it, otherwise inform the user ...
  2168.  If Len(DefaultBrowser) > 0 Then
  2169.   TuneIt_RegistrationAddress = "http://www.angelfire.com/me/majids/RegisterTuneIt.html"
  2170.   RetVal = Shell(DefaultBrowser + " " + TuneIt_RegistrationAddress, 3)
  2171.  Else
  2172.   MsgBox "No Web browser available!"
  2173.  End If
  2174. End Sub
  2175. Private Sub Label_Email_Click()
  2176. DefaultBrowser = TuneIt1.WebBrowser
  2177. If Len(DefaultBrowser) > 0 Then
  2178.  RetVal = Shell(DefaultBrowser + " mailto:majids@geocities.com", 3)
  2179.  MsgBox "No Mail client available!"
  2180. End If
  2181. End Sub
  2182. Private Sub TabStrip1_Click()
  2183.  Page(TabStrip1.SelectedItem.Index - 1).ZOrder 0
  2184. End Sub
  2185. Private Sub Timer1_Timer()
  2186.  Dim Free, Total, CurrentSwap, MaxSwap, SwapInUse, DiskCache, MaxDiskCache As Long
  2187.  Dim SwapFileUsage As Integer
  2188.  Free = TuneIt1.FreePhysicalMemory
  2189.  Total = TuneIt1.TotalPhysicalMemory
  2190.  CurrentSwap = TuneIt1.SwapFileSize
  2191.  MaxSwap = TuneIt1.MaxSwapFileSize
  2192.  SwapInUse = TuneIt1.SwapFileInUse
  2193.  DiskCache = TuneIt1.DiskCacheSize
  2194.  MaxDiskCache = TuneIt1.MaxDiskCacheSize
  2195.  If CurrentSwap <> 0 Then
  2196.     SwapFileUsage = SwapInUse * 100 \ CurrentSwap
  2197.  Else
  2198.     SwapFileUsage = 0
  2199.  End If
  2200.  Label_VMs.Caption = CStr(TuneIt1.VirtualMachines)
  2201.  Label_Threads.Caption = CStr(TuneIt1.Threads)
  2202.  Label_AllocatedMemory = CStr(TuneIt1.AllocatedMemorySize) + " KB"
  2203.  Label_LockedMemory = CStr(TuneIt1.LockedMemorySize) + " KB"
  2204.  ProgressBar_Mem.Value = (Total - Free) * 100 / Total
  2205.  Label_Memory.Caption = "Memory (Free/Total) :  " + CStr(Free) + "K / " + CStr(Total) + "K"
  2206.  If MaxDiskCache <> 0 Then
  2207.      ProgressBar_DiskCache.Value = DiskCache * 100 / MaxDiskCache
  2208.  Else
  2209.      ProgressBar_DiskCache.Value = 0
  2210.  End If
  2211.  Label_DiskCache.Caption = "Disk cache size (Current/Max) :  " + CStr(DiskCache) + "K / " + CStr(MaxDiskCache) + "K"
  2212.  If MaxSwap <> 0 Then
  2213.      ProgressBar_SwapFile.Value = CurrentSwap * 100 / MaxSwap
  2214.  Else
  2215.     ProgressBar_SwapFile.Value = 0
  2216.  End If
  2217.  Label_SwapFile.Caption = "Swap file (Current/Max) :  " + CStr(CurrentSwap) + "K / " + CStr(MaxSwap) + "K"
  2218.  ProgressBar_SwapFileUsage.Value = SwapFileUsage
  2219.  Label_SwapFileUsage.Caption = "Swap file usage :   " + CStr(SwapFileUsage) + "%"
  2220.  Label_MemoryUtilization.Caption = CStr(TuneIt1.MemoryUtilization) + "%"
  2221.  Label_TaskbarLocation.Caption = Choose(TuneIt1.TaskbarEdge + 1, "( left )", "( Top )", "( Right )", "( Bottom )", "( No Taskbar )")
  2222.  Check_AlwaysOnTop.Value = IIf(TuneIt1.TaskbarAlwaysOnTop, 1, 0)
  2223.  Check_AutoHide.Value = IIf(TuneIt1.TaskbarAutoHide, 1, 0)
  2224.  Check_MouseSwap.Value = IIf(TuneIt1.SwapMouseButtons, 1, 0)
  2225.  Check_MouseTrails.Value = IIf(TuneIt1.MouseTrails > 0, 1, 0)
  2226.  Label_Wallpaper.Caption = IIf(Len(TuneIt1.DesktopWallPaper), TuneIt1.DesktopWallPaper, "(None)")
  2227.  Label_ScreenSaver.Caption = IIf(Len(TuneIt1.ScreenSaver), TuneIt1.ScreenSaver, "(None)")
  2228.  Check_Tiled.Value = IIf(TuneIt1.TileWallPaper, 1, 0)
  2229.  Check_Stretched.Value = IIf(TuneIt1.StretchWallPaper, 1, 0)
  2230.  Check_ScreenSaveActive.Value = IIf(TuneIt1.ScreenSaverActive, 1, 0)
  2231.  Label_ScreenSaveTimeOut.Caption = "Time out :  " + CStr(TuneIt1.ScreenSaverTimeOut) + " sec."
  2232.  Check_MenuRightAlign.Value = IIf(TuneIt1.MenuDropRightAlign, 1, 0)
  2233.  Label_MenuFont.Caption = "Font : " + TuneIt1.IconTitleFont.Name
  2234.  Label_IconType.Caption = "dimensions: " + Choose(TuneIt1.IconType + 1, "8
  2235. 8", "16
  2236. 16", "32
  2237. 32", "48
  2238. 48", "64
  2239. 64", "96
  2240. 96", "") + " pixels"
  2241.  Label_MenuHeight.Caption = "Height :  " + CStr(TuneIt1.MenuHeight) + " twips"
  2242. End Sub
  2243. Private Sub Timer2_Timer()
  2244. ' ***********************************************************************************
  2245. ' ****  This Timer is faster than Timer1.
  2246. ' ****  To avoid the CPU overhead, just required controls should be updated here.
  2247. ' ***********************************************************************************
  2248.   Dim GMT As Date
  2249.   Dim CPUusage As Integer
  2250.   ' ****** Retrieving Greenwich Mean Time ...
  2251.   GMT = Now - TuneIt1.LocalTimeMinusGMT
  2252.   Label_GMTtime.Caption = Format(GMT, "ddd, mmm d, yyyy  -  hh:mm:ss AMPM")
  2253.   Label_LocalTime.Caption = Format(Now, "ddd, mmm d, yyyy  -  hh:mm:ss AMPM")
  2254.   ' ****** Checking keyboard LEDs ...
  2255.   Check_NumLock.Value = IIf(TuneIt1.NumLockOn, 1, 0)
  2256.   Check_CapsLock.Value = IIf(TuneIt1.CapsLockOn, 1, 0)
  2257.   Check_ScrollLock.Value = IIf(TuneIt1.ScrollLockOn, 1, 0)
  2258.   ' ****** Showing CPU utilization ...
  2259.   CPUusage = TuneIt1.ProcessorUsagePercent
  2260.   Label_ProcessorUsage.Caption = "Processor usage  :  " + CStr(CPUusage) + "%"
  2261.   ProgressBar_ProcessorUsage.Value = CPUusage
  2262. End Sub
  2263.